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N13 
EDTSPAUDIT = write a journal file record Jo~pe0= 1986 91:33:36 VAX-11 8B Ve 0208 Pa 
-Se 4 12 0 :CEDT.SRCJPAUDIT.BLI;1 (1) 


1 p-19 724: 


Liss-32 
DISKSVMSMASTER 


; 1 01 ZTITLE ‘EDTSPAUDIT - write a journal file record’ 

; § § MODULE EDTSPAUDIT ( ! Write a Journal file record 

H IDENT = ‘V04-000' ! File: PAUDIT.BLI Edit: J8S1010 

; 4 004 ds 

3 5 005 : BEGIN 

: ? 009 ! RRA AAAAAAARAAAAAAAA AERA AERA EAR ATER AAA AA AAARAAAAAAAAAAAEEA RARE 

; :@ . 

; 9 009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY a 

; 10 0010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ® 

; 1 Boi) ! - ALL RIGHTS RESERVED. * 

Py H oa 

: ig 0918 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

; 14 014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

: 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

: 16 8918 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

: 17 001 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: 18 Bos ! - TRANSFERRED. * 

; 'e e 

: 0 $0 QO 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE « 

3 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; $§ OOS§ ’ ‘* CORPORATION. * 

Ps .* * 

; $e Bose 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 

: $2 o5 2 : re SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 

ee 4 4 $059 1 Ie * 

3 $8 3 1 See RRR AAA ARATE 

; 0 zz 

; $0 $080 1 

1 0031 1 !++ : 

; 3 O03§ 1 ! FACILITY: EDT == The DEC Standard Editor 

; & 0033 1! 

; | 634 0034 1 ! ABSTRACT: 

oe 0035 1! : 

3; 0036 1! Write a journal file record. 

> a 0037 1! 

3 3 34 : ENVIRONMENT: Runs at any access mode - AST reentrant 

3 29 Bees : : AUTHOR: Bob Kushlis, CREATION DATE: 6-AUG-1979 

3 42 apg 1 ! MODIFIED BY: 

: 43 One 1; 

3: «644 044 1 ! 1-001 - Original. DJS 18-FEB-1981. This module was created by 
; «645 0045 1! extracting routine EDTS$JOU_PUTREC from module EDTCTR. 
; 646 0046 1 ! 1-002 = Regularize headers and fix file name. JBS 04-Mar-1981 
; 67 0047 1 ! 1-005 = Switch to using edt$fileio for i/o. STS 15-Jan-1982 | 
; «48 0048 1! I~$0e - Remove call to edt$$flush_obuf. STS 10-Feb-1982 
: 649 0049 1 ! 1-005 - Add Literals for callable EDT. STS 10-Mar-1 | 
; 3 0050 1 ! 1-006 = Change EDT$$G_JOU to EDTS$V_OPTIONS. JBS 1 ay Ha | 
3; «6S eh 1 ! 1-007 = Make use of bit masks in options word. STS oe 2 

3 26 O3¢ 1 ! 1-008 - Fix the references to the EDTSM syabols. 8s ~Aug-1982 

3; 2 0053 1 ! 1-009 = Don't do a str$copy for puts. STS 10-Nov-19 
; 3¢ Boe ! 1-010 - Improve the appearance of the listing. JBS 17-Jun-1983 
: 56 0056 1 
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iT - write a journal file record 


ons 
SSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM'; 


FORWARD ROUTINE 
EDTS$JOU_PUTREC : NOVALUE; 


INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ'; 


RIF ZBLISS (BLISS32) 
THEN 


REQUIRE ‘EDTSRC:SYSSYM'; 
xFI 


i MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 
In the routine 


eee ee tt 


2 V4.0=76 p 
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14 
PAUDIT = write a journal file record 18-Sep-19 4 93:12:36 
$JOU_P 4 12: 


1 ZSBTTL ‘EDTS$JOU_PUTREC = write a record in the journal file’ 
a. EDTSSJOU_PUTREC ( ! Write a record in ee journal file 


VAX-11 Bliss-3 
UTREC = write a record in the journa 14-Sep-19 4:06 DISKSVMSMASTER 


' Address of the recor 
LEN ! Length of the record 
) : NOVALUE = 


144 
; 


FUNCTIONAL DESCRIPTION: 

Write a record in the journal file. 
FORMAL PARAMETERS: 
LINE Address of the record 
LEN Length of the record 
IMPLICIT INPUTS: 

EDTS$G_JOU 


! IMPLICIT OUTPUTS: 


1 
1 
1 
1 
1 
) 
1! 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 . 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
tF 


EDT$$G_INP_CNT 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 
BEGIN 


EXTERNAL ROUTINE 
EDTSSCALLF 10; 


EXTERNAL 
EDT$$V_OPTIONS : BITVECTOR (32); ! options; bit 2 = /NOJOURNAL 


EXTERNAL LITERAL 
EDTSM_NOJOURNAL , 


EDT$K~PU 
EDTS$K~ JOURNAL _F ILE; 


LOCAL 
FILE_DESC : BLOCK (8, BYTE); 


zOLISS (BLISS32) 


x 
FILE_DESC [DSC$B_DTYPE $k_DTYPE_T; 
FILEDESC COSCSB~CLASS $K"CLASS“S; 


Peres 
T.SRCJPAUDIT.BLI;1 


] 
= i 
2 Page ; | 
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EDTSPA iT EDTSPAUDIT = write a journal file record 16-Sep 9-198 1: 5:5 VAX=11 Bliss-3 EDT 
V EDTSS$SJOU_PUTREC = write a record in the journa 14-Sep-1984 12:24:0 DISKSVMSMASTER: CED i? she PAUDIT.BLI;1 (3 v04 
; 136 754 
; 198 f 5 IF ((.EDTSS$V_OPTIONS AND EDTSM_NOJOURNAL) NEQ 0) THEN RETURN; 
SS ; 28 FILE_DESC EDSCSU_LENGTH] = «LEW: 
; 4 7 8 FILE-DESC CDSCSA-POINTER) = | 
; 160 7 EDTSSCALLFIO. CEDTSK .PuT, EDTEK. MNOURNAL FILE, FILEDESC, FILE DESC); 
: 161 760 END; ! of routine ED bTS$o U_PUTREC 


«TITLE EDTSPAUDIT EDTSPAUDIT - write a journal file re 
-IDENT \V04-000\ 

-EXTRN EDTSSCALLFIO, EDT$S$V_OPTIONS 

-EXTRN EDTSM_NOJOU 

-EXTRN EDTSK_PUT, EDTSK_JOURNAL_FILE 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


0000 00000 ENTRY EDTSSJOU_PUTREC, Save nothing ; 0699 

SE 08 C2 90002 SUBL2 $ ; 
02 AE 010E 8F 80 0000 MOVW #270, FILE_DESC+2 + 0751 
000000006 8F 000000006 90 D3 90008 BTL EDTS$v * OPTIONS. #EDTSM_NOJOURNAL > 0755 
6E 08 AC BO 00018 MOVW LEN, FILE_DESC + 0757 
04 AE 04 Ac dO 0001C MOVL LINE, FILE_DESC+4 : 0758 
5E DD 00021 PUSHL SP : 0759 

04 AE 9F 00023 PUSHAB FILE_DESC ; 

000000006 8F DD 00026 PUSHL PEDTSK. JOURNAL _FILE : 

000000006 8F DD 900¢¢ PUSHL  #ED T ; 

000000006 00 04 FB 00032 CALLS #4, EDTSSCALLFIO ; 
04 00039 1$: RET : 0760 


; Routine Size: 58 bytes, Routine Base: _EDTSCODE + 0000 


: 16¢ 0761 1 
3; 1% 0762 1 !<BLF/PAGE> 


EDTSPAUDIT EDTSPAUDIT = write a journal file record 1hobep 4 VAX-11 Bliss-32 V4. 
bas 608. EDTSSJOU_PUTREC = write a record in the journa 13-808- 1 3be 9}: We 3e DISKSVMSMAS STER: tt DT. OSACSPAUDIT. BLI;1 ——- (43 
s 165 763 1 END ! of module EDTSPAUDIT 

166 Ore } of module E UDI 

; 16 765 0 ELUDOM 

H PSECT SUMMARY 

; Name Bytes Attributes 

: _EDTSCODE 58 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

H Library Statistics 

: ecoccees Syabols oooeee<> Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28: 8:CEDT. ~SRCJEDT.L32;1 377 0 0 40 00:00.2 

; ~$255$DUA28:CEDT.SRC JPSECTS.L32;1 2 1 50 7 00:00.1 

3 ~$255$DUA28: CSYSLIBIJSTARLET.L32:1 9776 6 0 581 00:04.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACEBACK/LIS=L1S$:PAUDIT/OBJ=O0BJ$:PAUDIT MSRC$:PAUDIT.BLI/UPDATE=(ENH$:PAUDIT) 
Size: 58 code + 0 data bytes 


e: 
Elapsed Time: 00:23.6 
Lines/CPU Min: 3007 
,onenee/<Pe-wre2 8315 
penery Used: 74 pages 
Compilation Complete 


PMENT CORPORATION 


AH-BT13A-SE 
AND PROPRIETARY 
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